Option Explicit
'OҲ ChartEventCls
Public WithEvents myCht As Chart
Private Sub myCht_BeforeDoubleClick(ByVal ElementID As Long, _
                                    ByVal Arg1 As Long, _
                                    ByVal Arg2 As Long, _
                                    Cancel As Boolean)
    Dim mystr As String
    Select Case ElementID
        Case xlAxis: mystr = "Axis"
        Case xlAxisTitle: mystr = "AxisTitle"
        Case xlDisplayUnitLabel: mystr = "DisplayUnitLabel"
        Case xlMajorGridlines: mystr = "MajorGridlines"
        Case xlMinorGridlines: mystr = "MinorGridlines"
        Case xlPivotChartDropZone: mystr = "PivotChartDropZone"
        Case xlPivotChartFieldButton: mystr = "PivotChartFieldButton"
        Case xlDownBars: mystr = "DownBars"
        Case xlDropLines: mystr = "DropLines"
        Case xlHiLoLines: mystr = "HiLoLines"
        Case xlRadarAxisLabels: mystr = "RadarAxisLabels"
        Case xlSeriesLines: mystr = "SeriesLines"
        Case xlUpBars: mystr = "UpBars"
        Case xlChartArea: mystr = "ChartArea"
        Case xlChartTitle: mystr = "ChartTitle"
        Case xlCorners: mystr = "Corners"
        Case xlDataTable: mystr = "DataTable"
        Case xlFloor: mystr = "Floor"
        Case xlLegend: mystr = "Legend"
        Case xlNothing: mystr = "Nothing"
        Case xlPlotArea: mystr = "PlotArea"
        Case xlWalls: mystr = "Walls"
        Case xlDataLabel: mystr = "DataLabel"
        Case xlErrorBars: mystr = "ErrorBars"
        Case xlLegendEntry: mystr = "LegendEntry"
        Case xlLegendKey: mystr = "LegendKey"
        Case xlSeries: mystr = "Series"
        Case xlTrendline: mystr = "Trendline"
        Case xlXErrorBars: mystr = "XErrorBars"
        Case xlYErrorBars: mystr = "YErrorBars"
        Case xlShape: mystr = "Shape"
    End Select
    MsgBox "n" & mystr & "QGUFC" & vbCrLf & _
    "ѼƬ" & Arg1 & "P" & Arg2 & "C"
End Sub

'зǼҲ
Dim myChtCls As New ChartEventCls
Sub InitializeChartEvent()
    Set myChtCls.myCht = Worksheets(1).ChartObjects(1).Chart
End Sub
